home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DClap / DMenu.cpp < prev    next >
Text File  |  1996-07-05  |  10KB  |  428 lines
  1. // DMenu.cp
  2. // d.g.gilbert
  3.  
  4.  
  5. #include "Dvibrant.h"
  6. #include "DMenu.h"
  7. #include "DViewCentral.h"
  8. #include "DApplication.h"
  9. #include "DUtil.h"
  10.  
  11.  
  12.  
  13. extern "C" char * kMenuCommandFlag; // from vibrant's vibmenus.c == "%$%"; 
  14.  
  15.  
  16. //class DMenuChoiceGroup
  17.  
  18. extern "C" void ChoiceGroupHandler(Nlm_ChoicE c)
  19. {
  20.     DMenuChoiceGroup *obj= (DMenuChoiceGroup*) Nlm_GetObject( (Nlm_GraphiC)c);
  21.     if (obj) obj->IsMyViewAction(obj);
  22. }
  23.  
  24. DMenuChoiceGroup::DMenuChoiceGroup(long id, DMenu* supermenu) :
  25.     DView( id, NULL, kMenu, supermenu),
  26.     fLastItem(NULL)
  27. {
  28.     fChoice = Nlm_ChoiceGroup(supermenu->fMenu, ChoiceGroupHandler);
  29.     fSupermenu= supermenu;
  30.     this->SetNlmObject(fChoice);
  31. }
  32.     
  33. DMenuChoiceGroup::DMenuChoiceGroup(long id, DMenu* supermenu, Nlm_ChoicE itsChoice) :
  34.     DView( id, NULL, kMenu, supermenu),
  35.     fChoice(itsChoice)
  36. {
  37.     fSupermenu= supermenu;
  38.     this->SetNlmObject(fChoice);
  39. }
  40.  
  41. void  DMenuChoiceGroup::AddItem( long id, char* title, Boolean hasCmdKeys) 
  42. {
  43.     if (hasCmdKeys) { 
  44.         char stemp[256];
  45.         StrCpy( stemp, kMenuCommandFlag);
  46.         StrNCat( stemp, title, sizeof(stemp));
  47.         fLastItem= Nlm_ChoiceItem(fChoice, stemp);
  48.         }
  49.     else
  50.         fLastItem= Nlm_ChoiceItem(fChoice, title);
  51.     //Nlm_Disable(item); // not til debug
  52.     gViewCentral->RegisterView(id, fLastItem, kMenuItem, this); 
  53. }
  54.  
  55.  
  56.  
  57. // class DMenu  
  58.  
  59.  
  60.  
  61. // vibrant callback handler
  62.  
  63. extern "C" void MenuItemHandler(Nlm_IteM    item)
  64. {
  65.     DMenu *obj= (DMenu*) Nlm_GetObject( (Nlm_GraphiC)item);
  66.     if (obj)  obj->IsMyViewAction(obj);
  67. }
  68.  
  69.  
  70. DMenu::DMenu(long id, Nlm_MenU itsMenu, DTaskMaster* itsSuperior) :
  71.         DView(id, itsMenu, kMenu, itsSuperior),
  72.         fFonts(NULL),
  73.         fMenu(itsMenu) 
  74. {
  75.     //fItemList= new DList(NULL, DList::kDeleteObjects);
  76.     fItemList= new DList(NULL);
  77. }
  78.  
  79. DMenu::~DMenu()
  80. {
  81.     // !? ~DList is not calling obj destructors for kDeleteObjects !?!?
  82.     short i, n= fItemList->GetSize();
  83.     for (i=0; i<n; i++) {
  84.         DString* st= (DString*) fItemList->At(i);
  85.         delete st;
  86.         }
  87.     delete fItemList;
  88. }
  89.  
  90.  
  91. void  DMenu::AddItem(long id, char* title, Boolean isCheckItem, Boolean hasCmdKeys) 
  92. {
  93.     Nlm_IteM item;
  94.     if (hasCmdKeys) { 
  95.         char stemp[256];
  96.         StrCpy( stemp, kMenuCommandFlag);
  97.         StrNCat( stemp, title, sizeof(stemp));
  98.         if (isCheckItem) 
  99.             item= Nlm_StatusItem(fMenu, stemp, MenuItemHandler);
  100.         else
  101.             item= Nlm_CommandItem(fMenu, stemp, MenuItemHandler);
  102.         }
  103.     else {
  104.         if (isCheckItem) 
  105.             item= Nlm_StatusItem(fMenu, title, MenuItemHandler);
  106.         else
  107.             item= Nlm_CommandItem(fMenu, title, MenuItemHandler);
  108.         }
  109.         
  110.     // need our own copy of titles as XMotif/Vibrant has no callback to get them !
  111.     DString* s= new DString(title);
  112.     fItemList->InsertLast(s);
  113.             
  114.             // SOMETIME, REVISE this method to return itemview as result !!!
  115.             
  116.     DView* itemview= new DView(id, item, kMenuItem, this);
  117.     itemview->SetNlmObject(item);
  118.     //Nlm_Disable(item); // not till we debug...
  119.     if (itemview->GetOwnerCount()>1) itemview->suicide(); // leave gViewCentral as owner...
  120. }
  121.  
  122.  
  123. void DMenu::SetItemStatus(short itemid, Boolean status) 
  124. {  
  125.     DView* anItem;
  126.     anItem= this->FindSubview(itemid);
  127.     if (anItem) anItem->SetStatus(status);
  128. }            
  129.  
  130. Boolean DMenu::GetItemStatus(short itemid) 
  131. {  
  132.     DView* anItem;
  133.     anItem= this->FindSubview(itemid);
  134.     if (anItem && anItem->GetStatus()) return true;
  135.     else return false;
  136. }            
  137.  
  138. #if 0            
  139.         // ?? redo thise as above ??
  140.     virtual void SetItemTitle(short item, char* title);    
  141.     virtual char* GetItemTitle(short item, char* title = NULL, size_t maxsize = 256);
  142. #endif
  143.  
  144.  
  145.  
  146. char* DMenu::GetItemTitle(short item, char* title, ulong maxsize)
  147. {
  148.     if (item>0) {
  149.       DString* s= (DString*) fItemList->At(item-1);
  150.       if (s) {
  151.         char *cp= (char*) s->Get();
  152.         if (title==NULL) {
  153.           maxsize= StrLen(cp) + 1;
  154.           title= (char*) MemNew(maxsize);
  155.           }
  156.         StrNCpy(title, cp, maxsize);
  157.         }
  158.     }
  159.     return title;
  160. }
  161.  
  162. void  DMenu::AddSeparator(void) 
  163. {
  164.     DString* s= new DString("-");
  165.     fItemList->InsertLast(s);
  166.     Nlm_SeparatorItem(fMenu);
  167. }
  168.  
  169.  
  170. static Nlm_VGphIntChrSiz    gGetFontTitle = NULL;  // need special vibrant callback
  171.  
  172. void  DMenu::AddFonts(void) 
  173. {
  174. #ifdef WIN_MOTIF
  175.     fFonts= new DMenuChoiceGroup(cFontGroup, this);
  176.     fFonts->AddItem(cFontGroup+1,"Courier");
  177.     fFonts->AddItem(cFontGroup+2,"Helvetica");
  178.     fFonts->AddItem(cFontGroup+3,"Times");
  179. #endif
  180. #ifdef WIN_MSWIN
  181.     fFonts= new DMenuChoiceGroup(cFontGroup, this);
  182.     fFonts->AddItem(cFontGroup+1,"Arial");
  183.     fFonts->AddItem(cFontGroup+2,"Courier");
  184.     fFonts->AddItem(cFontGroup+3,"Times");
  185.     fFonts->AddItem(cFontGroup+4,"Modern");
  186.     fFonts->AddItem(cFontGroup+5,"Roman");
  187.     fFonts->AddItem(cFontGroup+6,"Script");
  188.     fFonts->AddItem(cFontGroup+7,"Serife");
  189. #endif
  190. #ifdef WIN_MAC
  191.     Nlm_ChoicE theFonts= Nlm_FontGroup(fMenu);
  192.     fFonts= new DMenuChoiceGroup(cFontGroup, this, theFonts);
  193. #endif
  194.     fFonts->AddItem(cFontGroup+20,"System");
  195.     fFonts->AddItem(cFontGroup+21,"Program");
  196. }
  197.  
  198.  
  199. void  DMenu::SetFontChoice(char* name) 
  200. {
  201.     char  namebuf[256];
  202.     short item, nitems;
  203.     
  204.     *namebuf= 0;
  205.     if (name && fFonts) { //&& gGetFontTitle) {
  206.         nitems= this->CountItems();
  207.         for (item= 1; item<= nitems; item++) {
  208.             Nlm_GetChoiceTitle((Nlm_GraphiC)fFonts->fNlmObject, item, namebuf, 256);
  209.             if (StringCmp(name, namebuf)==0)  {
  210.                 fFonts->SetValue(item); // is this it?
  211.                 return;
  212.                 }
  213.             }
  214.         }
  215. }
  216.  
  217.  
  218. char*  DMenu::GetFontChoice(char* namebuf, ulong bufsize)
  219. {
  220.     if (namebuf && bufsize) *namebuf= 0;
  221.     if (fFonts) { // && gGetFontTitle) {
  222.         short item= fFonts->GetValue();  // this is correct
  223.         if (!namebuf) {
  224.              bufsize= 256;
  225.             namebuf= (char*)MemNew(bufsize);
  226.             }
  227.         Nlm_GetChoiceTitle((Nlm_GraphiC)fFonts->fNlmObject, item, namebuf, bufsize);
  228.         return namebuf;  
  229.         }
  230.     else
  231.         return NULL;
  232. }
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240. //class DPulldownMenu : public DMenu
  241.  
  242. DPulldownMenu::DPulldownMenu(long id, DTaskMaster* itsSuperior, Nlm_WindoW w, char* title):
  243.     DMenu(id, Nlm_PulldownMenu(w, title), itsSuperior)
  244. { 
  245.     //fMenu= Nlm_PulldownMenu(w, title);
  246.     //this->SetNlmObject(fMenu);
  247. } 
  248.  
  249.  
  250.  
  251. //class DAppleMenu : public DMenu
  252.  
  253. DAppleMenu::DAppleMenu(DTaskMaster* itsSuperior, char* aboutName):
  254.     DMenu(kAboutMenu, Nlm_AppleMenu(NULL), itsSuperior)
  255. {
  256.     //fMenu= Nlm_AppleMenu(NULL);
  257.     //this->SetNlmObject(fMenu);
  258.     this->AddItem( kAboutMenuItem, aboutName);
  259.     this->AddSeparator();
  260.     Nlm_DeskAccGroup(fMenu);
  261. }
  262.  
  263.  
  264.  
  265. Boolean DAppleMenu::IsMyAction(DTaskMaster* theView) // override
  266. {
  267.     if (theView->Id() == kAboutMenuItem) {
  268.         gApplication->DoAboutBox();
  269.         return true;
  270.         }
  271.     else
  272.         return DView::IsMyAction(theView);
  273. }
  274.  
  275.  
  276. //class DSubMenu : public DMenu
  277.  
  278. DSubMenu::DSubMenu(long id, DMenu* supermenu, char* title) :
  279.     DMenu(id, Nlm_SubMenu(supermenu->fMenu, title), supermenu) 
  280. {
  281.     //fMenu= Nlm_SubMenu(supermenu->fMenu, title);
  282.     //this->SetNlmObject(fMenu);
  283. }
  284.  
  285.  
  286. //class DPopupMenu : public DMenu
  287.  
  288. //#ifdef WIN_MOTIF
  289. #ifndef WIN_MAC
  290.  
  291.  
  292. // this works for motif (and other form DOESN'T work for Motif...)
  293. // but this fails for Mac (at least names of items are not displayed... fiddle w/ it)
  294. // works now for mswin 
  295.  
  296. extern "C" void PopupMenuHandler(Nlm_PopuP p)
  297. {
  298.     DPopupMenu *obj= (DPopupMenu*) Nlm_GetObject((Nlm_GraphiC)p);
  299.     if (obj) obj->IsMyViewAction(obj);
  300. }
  301.  
  302.  
  303. DPopupMenu::DPopupMenu(long id, Nlm_GrouP prnt, char* title) :
  304.     DMenu(id, NULL, NULL)
  305. {
  306.         //fMenu= Nlm_PopupMenu(prnt, title);
  307.         // try it w/ crazee popuplist...
  308.         // really want to have a DPopupList class that includes all the DMenu methods...
  309.     
  310.     Nlm_RecT r;
  311.     fPopup= Nlm_PopupList( prnt, true, PopupMenuHandler); // true==maclike
  312.     fMenu= (Nlm_MenU) Nlm_Parent(fPopup);
  313.     this->SetNlmObject(fMenu);
  314. }
  315.  
  316. void  DPopupMenu::AddFonts()
  317. {
  318.     // strictly a hack -- we need to clean up this/DMenu font stuff
  319. #ifdef WIN_MOTIF
  320.     Nlm_PopupItem(fPopup, "Courier");
  321.     Nlm_PopupItem(fPopup, "Helvetica");
  322.     Nlm_PopupItem(fPopup, "Times");
  323.     Nlm_PopupItem(fPopup, "Program");
  324.     Nlm_PopupItem(fPopup, "System");
  325. #endif
  326. #ifdef WIN_MSWIN
  327.     Nlm_PopupItem(fPopup, "Arial");
  328.     Nlm_PopupItem(fPopup, "Courier");
  329.     Nlm_PopupItem(fPopup, "Modern");
  330.     Nlm_PopupItem(fPopup, "Roman");
  331.     Nlm_PopupItem(fPopup, "Times");
  332.     Nlm_PopupItem(fPopup, "Script");
  333.     Nlm_PopupItem(fPopup, "Serife");
  334.     Nlm_PopupItem(fPopup, "Program");
  335.     Nlm_PopupItem(fPopup, "System");
  336. #endif
  337. #ifdef WIN_MAC
  338.     Nlm_IteM item;
  339.     Nlm_ChoicE theFonts= Nlm_FontGroup(fMenu);
  340.     item= Nlm_ChoiceItem(theFonts, "Program");
  341.     item= Nlm_ChoiceItem(theFonts, "System");
  342.     fFonts= new DMenuChoiceGroup(cFontGroup, this, theFonts);
  343. #endif
  344. }
  345.  
  346. void  DPopupMenu::AddItem(long id, char* title, Boolean isCheckItem, Boolean hasCmdKeys)
  347. {
  348.     Nlm_IteM item;
  349.     Nlm_PopupItem(fPopup, title);
  350.  
  351.     // need our own copy of titles as XMotif/Vibrant has no callback to get them !
  352.     DString* s= new DString(title);
  353.     fItemList->InsertLast(s);
  354.  
  355.             // SOMETIME, REVISE this method to return itemview as result !!!
  356.     //DView* itemview= new DView(id, item, kMenuItem, this);
  357.     //itemview->SetNlmObject(item);
  358.     //if (itemview->GetOwnerCount()>1) itemview->suicide(); // leave gViewCentral as owner...
  359. }
  360.  
  361.  
  362. void  DPopupMenu::SetFontChoice(char* name)
  363. {
  364.     char  namebuf[256];
  365.     short item, nitems;
  366.  
  367.     *namebuf= 0;
  368.     if (name) {
  369.         nitems= this->CountItems();
  370.         for (item= 1; item<= nitems; item++) {
  371.             Nlm_GetItemTitle( fPopup, item, namebuf, 256);
  372.             if (StringCmp(name, namebuf)==0)  {
  373.                 Nlm_SetValue(fPopup, item);
  374.                 return;
  375.                 }
  376.             }
  377.         }
  378. }
  379.  
  380. char*  DPopupMenu::GetFontChoice(char* namebuf, ulong bufsize)
  381. {
  382.     if (namebuf && bufsize) *namebuf= 0;
  383.     if (fPopup) {
  384.         short item= Nlm_GetValue(fPopup);
  385.         if (!namebuf) {
  386.             bufsize= 256;
  387.             namebuf= (char*)MemNew(bufsize);
  388.             }
  389.         Nlm_GetItemTitle( fPopup, item, namebuf, bufsize);
  390.         return namebuf;
  391.         }
  392.     else
  393.         return NULL;
  394. }
  395.  
  396. #else
  397.  
  398.     // this stupid old Nlm_PopupMenu() has no callback to GetItemTitle() for items !!
  399. DPopupMenu::DPopupMenu(long id, Nlm_GrouP prnt, char* title) :
  400.     DMenu(id, Nlm_PopupMenu(prnt, title), NULL)
  401. {
  402.     //fMenu= Nlm_PopupMenu(prnt, title);
  403.     //this->SetNlmObject(fMenu);
  404. }
  405.  
  406. void  DPopupMenu::AddFonts()
  407. {
  408.     DMenu::AddFonts();
  409. }
  410.  
  411. void  DPopupMenu::AddItem(long id, char* title, Boolean isCheckItem, Boolean hasCmdKeys)
  412. {
  413.     DMenu::AddItem(id,title,isCheckItem,hasCmdKeys);
  414. }
  415.  
  416. void  DPopupMenu::SetFontChoice(char* name)
  417. {
  418.     DMenu::SetFontChoice(name);
  419. }
  420.  
  421. char*  DPopupMenu::GetFontChoice(char* namebuf, ulong bufsize)
  422. {
  423.     return DMenu::GetFontChoice(namebuf, bufsize);
  424. }
  425.  
  426. #endif
  427.  
  428.